home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / NRCOBOL1g / COBFILES / CVP11.COB < prev    next >
Encoding:
Text File  |  1998-09-24  |  2.4 KB  |  77 lines
  1.  
  2.        IDENTIFICATION DIVISION.
  3.        PROGRAM-ID.  CVP11.
  4.       *PROGRAM DISCRIPTION.
  5.        ENVIRONMENT DIVISION.
  6.        CONFIGURATION SECTION.
  7.        SOURCE-COMPUTER.
  8.        OBJECT-COMPUTER.
  9.        INPUT-OUTPUT SECTION.
  10.        FILE-CONTROL.
  11.            SELECT MATDAT ASSIGN TO DISK
  12.            ORGANIZATION IS SEQUENTIAL
  13.            FILE STATUS IS WS-FILE-STATUS.
  14.        DATA DIVISION.
  15.        FILE SECTION.
  16.        FD MATDAT
  17.             LABEL RECORD IS  STANDARD
  18.             VALUE OF FILE-ID IS "FAJL.OUT".
  19.        01 SLOG.
  20.           05 STA  PIC 9.
  21.           05 ODS  PIC X.
  22.           05 CEN  PIC 9.
  23.           05 BIN  PIC 9(4).
  24.           05 GOD  PIC 9(2).
  25.           05 IME  PIC X(12).
  26.           05 PREZ PIC X(18).
  27.           05 ADR PIC X(20).
  28.       *
  29.        WORKING-STORAGE SECTION.
  30.        01 WS-FILE-STATUS  PIC XX VALUE "00".
  31.        SCREEN SECTION.
  32.        01 COLOR-SCREEN.
  33.            02 BLANK-SCREEN.
  34.        01 EKRAN.
  35.            05 LINE 1 COLUMN 1  VALUE "VISA POSLOVNA SKOLA".
  36.            05 LINE 2 COLUMN 1  VALUE "BEOGRAD".
  37.            05 LINE 4 COLUMN 1  VALUE "Unos maticnih podataka studenata".
  38.            05 LINE 6 COLUMN 1  VALUE "Broj indexa (9=kraj):".
  39.            05 LINE 6 COLUMN 29 VALUE "/".
  40.            05 LINE 6 COLUMN 34 VALUE "/".
  41.            05 LINE 8 COLUMN 1  VALUE "Ime..... :".
  42.            05 LINE 9 COLUMN 1  VALUE "Prezime. :".
  43.            05 LINE 10 COLUMN 1 VALUE "Adresa.. :".
  44.  
  45.            05 LINE 6  COLUMN 26 PIC 9 USING STA.
  46.            05 LINE 6  COLUMN 27 PIC X USING ODS.
  47.            05 LINE 6  COLUMN 28 PIC 9 USING CEN.
  48.            05 LINE 6  COLUMN 30 PIC 9(4) USING BIN.
  49.            05 LINE 6  COLUMN 35 PIC 99 USING GOD.
  50.            05 LINE 8  COLUMN 15 PIC X(12) USING IME.
  51.            05 LINE 9  COLUMN 15 PIC X(18) USING PREZ.
  52.            05 LINE 10 COLUMN 15 PIC X(24) USING ADR.
  53.       *
  54.        PROCEDURE DIVISION.
  55.        POC.
  56.            MOVE 0 TO STA CEN GOD BIN.
  57.            MOVE SPACES TO ODS IME PREZ ADR.
  58.            DISPLAY COLOR-SCREEN.
  59.            OPEN EXTEND MATDAT.
  60.        POST1.
  61.            move 9   to STA.
  62.            move "B" to ODS.
  63.            move 8   to CEN.
  64.            move 7654 to  BIN.
  65.            move 32 to GOD.
  66.  
  67.  
  68.            DISPLAY EKRAN.
  69.            ACCEPT EKRAN.
  70.            IF STA = 9 GO TO KRAJ.
  71.            WRITE SLOG.
  72.            GO TO POST1.
  73.        KRAJ.
  74.            CLOSE MATDAT.
  75.            STOP RUN.
  76.       *****END*******************************************
  77.